home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / snip0493.zip / COMMAFMT.C < prev    next >
C/C++ Source or Header  |  1993-04-05  |  2KB  |  83 lines
  1. /*
  2. **  COMMAFMT.C
  3. **
  4. **  Public domain by Bob Stout
  5. **
  6. **  Notes:  1. Use static buffer to eliminate error checks on buffer overflow
  7. **             and reduce code size.
  8. **          2. By making the numeric argument a long and prototyping it before
  9. **             use, passed numeric arguments will be implicitly cast to longs
  10. **             thereby avoiding int overflow.
  11. **          3. Use the thousands grouping and thousands separator from the
  12. **             ANSI locale to make this more robust.
  13. */
  14.  
  15. #include <string.h>
  16. #ifdef TEST
  17.  #include <stdlib.h>
  18. #endif
  19.  
  20. #define NUL '\0'
  21.  
  22. size_t commafmt(char   *buf,            /* Buffer for formatted string  */
  23.                 int     bufsize,        /* Size of buffer               */
  24.                 long    N)              /* Number to convert            */
  25. {
  26.         int len = 1, posn = 1, sign = 1;
  27.         char *ptr = buf + bufsize - 1;
  28.  
  29.         if (2 > bufsize)
  30.         {
  31. ABORT:          *buf = NUL;
  32.                 return 0;
  33.         }
  34.  
  35.         *ptr-- = NUL;
  36.         --bufsize;
  37.         if (0L > N)
  38.         {
  39.                 sign = -1;
  40.                 N = -N;
  41.         }
  42.  
  43.         for ( ; len <= bufsize; ++len, ++posn)
  44.         {
  45.                 *ptr-- = (char)((N % 10L) + '0');
  46.                 if (0L == (N /= 10L))
  47.                         break;
  48.                 if (0 == (posn % 3))
  49.                 {
  50.                         *ptr-- = ',';
  51.                         ++len;
  52.                 }
  53.                 if (len >= bufsize)
  54.                         goto ABORT;
  55.         }
  56.  
  57.         if (0 > sign)
  58.         {
  59.                 if (0 == bufsize)
  60.                         goto ABORT;
  61.                 *ptr-- = '-';
  62.                 ++len;
  63.         }
  64.  
  65.         strcpy(buf, ++ptr);
  66.         return (size_t)len;
  67. }
  68.  
  69. #ifdef TEST
  70.  
  71. void main(int argc, char *argv[])
  72. {
  73.         size_t len;
  74.         char buf[20];
  75.         long N;
  76.  
  77.         N = strtol(argv[1], NULL, 10);
  78.         len = commafmt(buf, 20, N);
  79.         printf("%s converts to %s and returned %d\n", argv[1], buf, len);
  80. }
  81.  
  82. #endif
  83.